{	Problem: http://codeforces.ru/problemset/problem/44/E
	Verdict: Accepted
}
uses 
  SysUtils, Math;
    
var 
    a,b,k,ls,i,cc,kk,j:longint;
    aa:array[0..210] of longint;
    s:string;

begin
readln(k,a,b);
readln(s);
ls:=length(s);
if (ls<k*a) or (ls>k*b) then write('No solution') else begin
    cc:=0;
    kk:=ls;
    while kk>0 do begin
        inc(cc);
        aa[cc]:=min(kk,b);
        dec(kk,aa[cc]);
    end;
    i:=1;
    if aa[cc]<a then begin
        while aa[cc]<a do begin
            inc(aa[cc]);
            dec(aa[i]);
            i:=i mod (cc-1)+1;
        end;
    end;
    if cc<k then begin
        kk:=k-cc;
        for j:=1 to kk do begin
            while aa[j+cc]<a do begin
                if aa[i]>a then begin
                    inc(aa[j+cc]);
                    dec(aa[i]);
                end;
                i:=i mod cc+1;
            end;    
        end;
    end;
    for i:=1 to k do begin
        writeln(copy(s,1,aa[i]));
        delete(s,1,aa[i]);
    end;
end;
end.